home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 2 of 3).adf / Intuition_Procs / intui.lha / _RECTFILL.Amos / _RECTFILL.amosSourceCode
AMOS Source Code  |  1992-02-26  |  320b  |  12 lines
  1. Procedure _RECTFILL[_IS,A,B,C,D]
  2.    
  3.    Areg(1)=_IS+84 : Rem    -- Rastport in A1   
  4.    
  5.    Dreg(0)=A : Rem         -- Top left x coord
  6.    Dreg(1)=B : Rem         -- Top left y coord
  7.    Dreg(2)=C : Rem         -- Bottom right x coord
  8.    Dreg(3)=D : Rem         -- Bottom right y coord
  9.    
  10.    T=Gfxcall(-306)
  11.    
  12. End Proc